COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PICTST"
C00004 ENDMK
C⊗;
BEGIN "PICTST"
REQUIRE "PICNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,S,II,JJ;
OUTSTR("FILE NAME:");
PIXDIM(INCHWL);
OUTSTR(CVS(PICHIG)&" BY "&CVS(PICWID)&" BY "&CVS(PICBIT)&'15&'12);
 BEGIN
 INTEGER ARRAY PIX,PIX1[1:PICSIZ];
 GETPIX(PIX);
 FOR I←3 STEP 1 UNTIL PICHIG-2 DO FOR J←3 STEP 1 UNTIL PICWID-2 DO
  BEGIN
  S←-9*PIXEL(PIX[1],I,J);
  FOR II←-1,0,1 DO FOR JJ←-1,0,1 DO S←S+PIXEL(PIX[1],I+II,J+JJ);
  PUTEL(PIX1[1],I,J,(S↑2+9*64)%256);
  END;
 PUTPIX(PIX1,"TMP.TMP");
 WHILE TRUE DO
  BEGIN
  OUTSTR("I:"); I←CVD(INCHWL);
  OUTSTR("J:"); J←CVD(INCHWL);
  OUTSTR(" VALUE "&CVS(PIXEL(PIX[1],I,J))&'15&'12&'12);
  END;
 END;
END;